#!/usr/bin/env tclsh

puts "请从终端输入字符:"
set in [gets stdin]; #从终端输入字符
puts "你输入的字符为:$in"

